perm filename ZQ.DAT[SCR,LCS]1 blob
sn#199902 filedate 1976-02-05 generic text, type T, neo UTF8
RCDFLG←-1;
< ZQ .DAT -- RANDOM NUMBER= 1
PLAY;
CLAR 0.000 0.140 E*2 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 1
BUZZ 0.000 0.280 E/4 1000.000 F1 0.000 0.000 0.000 F5
;PRINT(P1);< BUZZ 1
CLAR 0.140 0.140 C*2 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 2
CLAR 0.280 0.140 FS 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 3
BUZZ 0.280 0.280 A/4 1000.000 F1 0.000 0.000 0.000 F4
;PRINT(P1);< BUZZ 2
CLAR 0.420 0.140 GS 1000.000 F1 0.000 F3
;PRINT(P1);< CLAR 4
CLAR 0.560 0.140 D*2 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 5
BUZZ 0.560 0.560 AS/4 1000.000 F1 0.000 0.000 0.000 F3
;PRINT(P1);< BUZZ 3
CLAR 0.700 0.140 AS 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 6
CLAR 0.840 0.140 F 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 7
CLAR 0.980 0.140 FS 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 8
CLAR 1.120 0.140 B 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 9
CLAR 1.260 0.130 AS 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 10
CLAR 1.390 0.140 AS 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 11
CLAR 1.530 0.140 A 1000.000 F1 0.000 F3
;PRINT(P1);< CLAR 12
CLAR 1.670 0.280 A 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 13
BUZZ 1.680 0.830 B/2 1000.000 F1 0.000 0.000 0.000 F4
;PRINT(P1);< BUZZ 5
CLAR 1.950 0.140 G 1000.000 F1 0.000 F5
;PRINT(P1);< CLAR 14
CLAR 2.090 0.140 F 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 15
CLAR 2.230 0.830 GS 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 16
BUZZ 2.510 0.280 C 1000.000 F1 0.000 0.000 0.000 F5
;PRINT(P1);< BUZZ 6
BUZZ 2.790 0.420 G/2 1000.000 F1 0.000 0.000 0.000 F3
;PRINT(P1);< BUZZ 7
CLAR 3.060 0.280 FS 1000.000 F1 0.000 F3
;PRINT(P1);< CLAR 17
BUZZ 3.210 0.140 F/2 1000.000 F1 0.000 0.000 0.000 F4
;PRINT(P1);< BUZZ 8
CLAR 3.340 0.140 E 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 18
BUZZ 3.350 0.550 A/2 1000.000 F1 0.000 0.000 0.000 F5
;PRINT(P1);< BUZZ 9
CLAR 3.480 0.140 DS 1000.000 F1 0.000 F4
;PRINT(P1);< CLAR 19
CLAR 3.620 0.270 D 1000.000 F1 0.000 F3
;PRINT(P1);< CLAR 20
FINISH; < ZQ .DAT